object fmCustomer: TfmCustomer
  Left = 0
  Top = 0
  Caption = 'Customer Management'
  ClientHeight = 497
  ClientWidth = 744
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 46
    Height = 13
    Caption = '&Customer'
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 182
    Width = 633
    Height = 299
    ActivePage = TabSheet2
    TabOrder = 6
    object TabSheet1: TTabSheet
      Caption = 'Details'
      object Shape1: TShape
        Left = 476
        Top = 0
        Width = 146
        Height = 173
        Brush.Color = clSilver
      end
      object Label2: TLabel
        Left = 15
        Top = 16
        Width = 74
        Height = 13
        Caption = '&Customer Code'
      end
      object Label3: TLabel
        Left = 15
        Top = 43
        Width = 51
        Height = 13
        Caption = '&First Name'
      end
      object Label4: TLabel
        Left = 225
        Top = 43
        Width = 50
        Height = 13
        Caption = '&Last Name'
      end
      object Label5: TLabel
        Left = 225
        Top = 71
        Width = 40
        Height = 13
        Caption = 'Birthday'
      end
      object Label6: TLabel
        Left = 15
        Top = 70
        Width = 55
        Height = 13
        Caption = '&New IC No.'
      end
      object Label7: TLabel
        Left = 15
        Top = 124
        Width = 39
        Height = 13
        Caption = '&Address'
      end
      object Label8: TLabel
        Left = 15
        Top = 178
        Width = 49
        Height = 13
        Caption = '&Post Code'
      end
      object Label9: TLabel
        Left = 199
        Top = 178
        Width = 19
        Height = 13
        Caption = '&City'
      end
      object Label10: TLabel
        Left = 15
        Top = 205
        Width = 26
        Height = 13
        Caption = '&State'
      end
      object Label11: TLabel
        Left = 255
        Top = 205
        Width = 39
        Height = 13
        Caption = '&Country'
      end
      object Label12: TLabel
        Left = 225
        Top = 97
        Width = 24
        Height = 13
        Caption = '&Race'
      end
      object Label13: TLabel
        Left = 15
        Top = 97
        Width = 29
        Height = 13
        Caption = '&Ethnic'
      end
      object imgPhoto: TImage
        Left = 478
        Top = 2
        Width = 142
        Height = 169
        Stretch = True
      end
      object btnCustomerCode: TSpeedButton
        Left = 217
        Top = 12
        Width = 23
        Height = 22
        Caption = '...'
        OnClick = btnCustomerCodeClick
      end
      object txtFirstName: TEdit
        Left = 95
        Top = 40
        Width = 121
        Height = 21
        MaxLength = 50
        TabOrder = 1
      end
      object txtLastName: TEdit
        Left = 286
        Top = 40
        Width = 121
        Height = 21
        MaxLength = 50
        TabOrder = 2
      end
      object dpBirthday: TDateTimePicker
        Left = 286
        Top = 67
        Width = 121
        Height = 21
        Date = 41462.599472881940000000
        Format = 'dd/MM/yyyy'
        Time = 41462.599472881940000000
        TabOrder = 4
      end
      object txtCustomerCode: TEdit
        Left = 95
        Top = 13
        Width = 121
        Height = 21
        TabOrder = 0
      end
      object txtNewICNo: TEdit
        Left = 95
        Top = 67
        Width = 121
        Height = 21
        MaxLength = 16
        TabOrder = 3
      end
      object txtAddress: TEdit
        Left = 95
        Top = 121
        Width = 370
        Height = 21
        MaxLength = 100
        TabOrder = 7
      end
      object txtAddress2: TEdit
        Left = 95
        Top = 148
        Width = 370
        Height = 21
        MaxLength = 100
        TabOrder = 8
      end
      object txtPostCode: TEdit
        Left = 95
        Top = 175
        Width = 82
        Height = 21
        MaxLength = 5
        NumbersOnly = True
        TabOrder = 9
      end
      object txtCity: TEdit
        Left = 224
        Top = 175
        Width = 121
        Height = 21
        MaxLength = 50
        TabOrder = 10
      end
      object cbState: TComboBox
        Left = 95
        Top = 202
        Width = 145
        Height = 21
        Style = csDropDownList
        DropDownCount = 10
        MaxLength = 50
        TabOrder = 11
        Items.Strings = (
          'Kuala Lumpur'
          'Labuan'
          'Putrajaya'
          'Johor'
          'Kedah'
          'Kelantan'
          'Malacca'
          'Negeri Sembilan'
          'Pahang'
          'Perak'
          'Perlis'
          'Penang'
          'Sabah'
          'Sarawak'
          'Selangor'
          'Terengganu')
      end
      object cbCountry: TComboBox
        Left = 300
        Top = 202
        Width = 107
        Height = 21
        Style = csDropDownList
        DropDownCount = 10
        ItemIndex = 0
        MaxLength = 50
        TabOrder = 12
        Text = 'Malaysia'
        OnChange = cbCountryChange
        Items.Strings = (
          'Malaysia')
      end
      object cbRace: TComboBox
        Left = 286
        Top = 94
        Width = 121
        Height = 21
        Style = csDropDownList
        DropDownCount = 10
        MaxLength = 50
        TabOrder = 6
        Items.Strings = (
          'Chinese'
          'Malay'
          'Indian')
      end
      object cbEthnic: TComboBox
        Left = 95
        Top = 94
        Width = 121
        Height = 21
        Style = csDropDownList
        DropDownCount = 10
        MaxLength = 50
        TabOrder = 5
        Items.Strings = (
          'Buddhism'
          'Islam'
          'Hinduism')
      end
      object btnLoad: TButton
        Left = 512
        Top = 179
        Width = 75
        Height = 25
        Caption = '&Load'
        TabOrder = 13
        OnClick = btnLoadClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Alternate Contact'
      ImageIndex = 1
      object Label25: TLabel
        Left = 15
        Top = 16
        Width = 39
        Height = 13
        Caption = '&Address'
      end
      object Label26: TLabel
        Left = 15
        Top = 70
        Width = 49
        Height = 13
        Caption = '&Post Code'
      end
      object Label27: TLabel
        Left = 199
        Top = 70
        Width = 19
        Height = 13
        Caption = '&City'
      end
      object Label28: TLabel
        Left = 15
        Top = 97
        Width = 26
        Height = 13
        Caption = '&State'
      end
      object Label29: TLabel
        Left = 255
        Top = 97
        Width = 39
        Height = 13
        Caption = '&Country'
      end
      object txt2Address: TEdit
        Left = 95
        Top = 13
        Width = 370
        Height = 21
        MaxLength = 100
        TabOrder = 0
      end
      object txt2Address2: TEdit
        Left = 95
        Top = 40
        Width = 370
        Height = 21
        MaxLength = 100
        TabOrder = 1
      end
      object txt2PostCode: TEdit
        Left = 95
        Top = 67
        Width = 82
        Height = 21
        MaxLength = 5
        NumbersOnly = True
        TabOrder = 2
      end
      object txt2City: TEdit
        Left = 224
        Top = 67
        Width = 121
        Height = 21
        MaxLength = 50
        TabOrder = 3
      end
      object cb2State: TComboBox
        Left = 95
        Top = 94
        Width = 145
        Height = 21
        Style = csDropDownList
        DropDownCount = 10
        MaxLength = 50
        TabOrder = 4
        Items.Strings = (
          'Kuala Lumpur'
          'Labuan'
          'Putrajaya'
          'Johor'
          'Kedah'
          'Kelantan'
          'Malacca'
          'Negeri Sembilan'
          'Pahang'
          'Perak'
          'Perlis'
          'Penang'
          'Sabah'
          'Sarawak'
          'Selangor'
          'Terengganu')
      end
      object cb2Country: TComboBox
        Left = 300
        Top = 94
        Width = 107
        Height = 21
        Style = csDropDownList
        DropDownCount = 10
        ItemIndex = 0
        MaxLength = 50
        TabOrder = 5
        Text = 'Malaysia'
        OnChange = cb2CountryChange
        Items.Strings = (
          'Malaysia')
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Guarantee Details'
      ImageIndex = 2
      object Shape2: TShape
        Left = 476
        Top = 0
        Width = 146
        Height = 173
        Brush.Color = clSilver
        Visible = False
      end
      object Label14: TLabel
        Left = 15
        Top = 43
        Width = 51
        Height = 13
        Caption = '&First Name'
      end
      object Label15: TLabel
        Left = 225
        Top = 43
        Width = 50
        Height = 13
        Caption = '&Last Name'
      end
      object Label16: TLabel
        Left = 15
        Top = 70
        Width = 55
        Height = 13
        Caption = '&New IC No.'
      end
      object Label17: TLabel
        Left = 225
        Top = 71
        Width = 40
        Height = 13
        Caption = 'Birthday'
      end
      object Label20: TLabel
        Left = 15
        Top = 97
        Width = 39
        Height = 13
        Caption = '&Address'
      end
      object Label21: TLabel
        Left = 15
        Top = 151
        Width = 49
        Height = 13
        Caption = '&Post Code'
      end
      object Label22: TLabel
        Left = 199
        Top = 151
        Width = 19
        Height = 13
        Caption = '&City'
      end
      object Label23: TLabel
        Left = 15
        Top = 178
        Width = 26
        Height = 13
        Caption = '&State'
      end
      object Label24: TLabel
        Left = 255
        Top = 178
        Width = 39
        Height = 13
        Caption = '&Country'
      end
      object Image1: TImage
        Left = 478
        Top = 2
        Width = 142
        Height = 169
        Stretch = True
        Visible = False
      end
      object txtGFirstName: TEdit
        Left = 95
        Top = 40
        Width = 121
        Height = 21
        MaxLength = 50
        TabOrder = 0
      end
      object txtGLastName: TEdit
        Left = 286
        Top = 40
        Width = 121
        Height = 21
        MaxLength = 50
        TabOrder = 1
      end
      object txtGNewICNo: TEdit
        Left = 95
        Top = 67
        Width = 121
        Height = 21
        MaxLength = 16
        TabOrder = 2
      end
      object dpGBirthday: TDateTimePicker
        Left = 286
        Top = 67
        Width = 121
        Height = 21
        Date = 41462.599472881940000000
        Format = 'dd/MM/yyyy'
        Time = 41462.599472881940000000
        TabOrder = 3
      end
      object txtGAddress: TEdit
        Left = 95
        Top = 94
        Width = 370
        Height = 21
        MaxLength = 100
        TabOrder = 4
      end
      object txtGAddress2: TEdit
        Left = 95
        Top = 121
        Width = 370
        Height = 21
        MaxLength = 100
        TabOrder = 5
      end
      object txtGPostCode: TEdit
        Left = 95
        Top = 148
        Width = 82
        Height = 21
        MaxLength = 5
        NumbersOnly = True
        TabOrder = 6
      end
      object txtGCity: TEdit
        Left = 224
        Top = 148
        Width = 121
        Height = 21
        MaxLength = 50
        TabOrder = 7
      end
      object cbGState: TComboBox
        Left = 95
        Top = 175
        Width = 145
        Height = 21
        Style = csDropDownList
        DropDownCount = 10
        MaxLength = 50
        TabOrder = 8
        Items.Strings = (
          'Kuala Lumpur'
          'Labuan'
          'Putrajaya'
          'Johor'
          'Kedah'
          'Kelantan'
          'Malacca'
          'Negeri Sembilan'
          'Pahang'
          'Perak'
          'Perlis'
          'Penang'
          'Sabah'
          'Sarawak'
          'Selangor'
          'Terengganu')
      end
      object cbGCountry: TComboBox
        Left = 300
        Top = 175
        Width = 107
        Height = 21
        Style = csDropDownList
        DropDownCount = 10
        ItemIndex = 0
        MaxLength = 50
        TabOrder = 9
        Text = 'Malaysia'
        OnChange = cbGCountryChange
        Items.Strings = (
          'Malaysia')
      end
      object btnLoad2: TButton
        Left = 512
        Top = 179
        Width = 75
        Height = 25
        Caption = '&Load'
        TabOrder = 10
        Visible = False
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 27
    Width = 633
    Height = 149
    DataSource = dsCustomers
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
  end
  object btnNew: TButton
    Left = 656
    Top = 27
    Width = 75
    Height = 25
    Caption = '&New'
    TabOrder = 0
    OnClick = btnNewClick
  end
  object btnEdit: TButton
    Left = 656
    Top = 58
    Width = 75
    Height = 25
    Caption = '&Edit'
    TabOrder = 1
    OnClick = btnEditClick
  end
  object btnDelete: TButton
    Left = 656
    Top = 89
    Width = 75
    Height = 25
    Caption = '&Delete'
    TabOrder = 2
    OnClick = btnDeleteClick
  end
  object btnClose: TButton
    Left = 656
    Top = 151
    Width = 75
    Height = 25
    Caption = '&Close'
    TabOrder = 3
    OnClick = btnCloseClick
  end
  object btnSave: TButton
    Left = 656
    Top = 120
    Width = 75
    Height = 25
    Caption = '&Save'
    TabOrder = 4
    OnClick = btnSaveClick
  end
  object ADPhysMySQLDriverLink1: TADPhysMySQLDriverLink
    Left = 656
    Top = 240
  end
  object ADPhysIBDriverLink1: TADPhysIBDriverLink
    DriverID = 'Firebird'
    VendorHome = 'C:\Program Files\Firebird\Firebird_2_5'
    VendorLib = 'fbclient.dll'
    Left = 568
    Top = 240
  end
  object ADConnection1: TADConnection
    Params.Strings = (
      'Database=emarket_mylong'
      'User_Name=emarket_mylong'
      'Password=mylong1117'
      'Server=e-marketkhas.com'
      'DriverID=MySQL')
    ResourceOptions.AssignedValues = [rvAutoReconnect]
    ResourceOptions.AutoReconnect = True
    LoginPrompt = False
    Left = 568
    Top = 184
  end
  object ADGUIxWaitCursor1: TADGUIxWaitCursor
    Left = 656
    Top = 184
  end
  object adtCustomers: TADTable
    IndexFieldNames = 'ID'
    Connection = ADConnection1
    UpdateOptions.UpdateTableName = 'customers'
    TableName = 'customers'
    Left = 656
    Top = 296
  end
  object dsCustomers: TDataSource
    DataSet = adtCustomers
    Left = 568
    Top = 296
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 680
    Top = 360
  end
  object qrySQL: TADQuery
    Connection = ADConnection1
    Left = 680
    Top = 416
  end
end
